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so it’s not surprising that few analysts and programmers have 

taken the time to sit down and create a new, precise lan- 
guage. Why should we, when analogy gives us rich pickings 
anyway? We can simply borrow words from other contexts and 
apply them in (hopefully) appropriate ways to our own experience. 
So disk, window, menu, hack, bug, object, source and link are 
adopted and adapted. A little deeper into the technology and we 
find vector, frame, segment and sector taking on slightly new 
meanings; in application software we have desktop, icon, sprite, 
wallpaper, mouse and many other English words given new life. 

It can be particularly trying for our close friends and relatives 
who try to re-fashion their own language to suit us; recently I over- 
heard my wife Barbie on the telephone apologising for our 
cancelling a dinner invitation at short notice: ‘Wilf is feeling ill; he 
seems to have picked up a 24-hour computer virus’. 


STRADDLING 
‘466. Neil Gallagher of London recently wrote with a 

problem; he had at some point in the past 

acquired a useful little program that effectively 

2 permitted a loop test in the DOS batch file 

\ (BAT) programming language. 

Microsoft built a fair amount of power into the 

BAT language — DOS commands and a few power- 

ful special purpose instructions. DOS services include the ability 

for any program to set the variable ERRORLEVEL, which you can 

test with a version of the IF instruction within a BAT file. This 

means that you can accomplish quite a bit within a BAT, both 

reporting errors and deciding which programs to run. 

Neil had been given a tiny program that gave him an even 
greater power: it could be used to clear an invisible variable; every 
time it was used subsequently it added one to this variable, report- 
ing its new value in ERRORLEVEL. He felt bad about two things: 
the program had been hacked so that it had no copyright message 
any more; also it could not handle any value beyond 255. Neil 
wrote ‘Do you have an alternate way of doing this? LOOP has out- 
lived its usefulness, and I don’t know who wrote the original’. 

I investigated the tiny program and found that the invisible 
variable was a byte in low memory, at a location reserved for cas- 
sette tape control — not often used these days. I experimented with 
changing the program to handle a two-byte value, but there are 
obvious problems communicating this value to the program in the 
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BAT file via ERRORLEVEL — which has a maximum value of 
255. Besides, there was a copyright on this program; I could not 
respect it because somebody had illegally removed the copyright 
notice; the honourable and legal thing to do was to originate a new, 
better way of accomplishing the goal. 

This I have done with STRADDLE -— on this month’s 
SuperDisk: you (and Neil) may use this program as you like. It 
works on a different principle altogether: you set a numeric value 
for an environment variable (with the SET command) and then use 
STRADDLE to create two new variables: PLUS will be one more in 
value, and MINUS will be one less. For example the following 
BAT will execute MYPROG a certain number of times, indicated 
by a parameter: REPEAT 4 would do it four times. 


@ECHO OFF 

REM REPEAT. BAT 

SET TIMES=%$1 

STRADDLE TIMES 

IF NOT ERRORLEVEL 1 GOTO LOOP 
ECHO Parameter is not numeric 
GOTO ENDBAT 


: LOOP 

IF TIMES% == 0 GOTO ENDBAT 
MYPROG 

STRADDLE TIMES 

SET TIMES=%MINUS% 

GOTO LOOP 

: ENDBAT 


Note that the first STRADDLE just confirms that TIMES has a 
numeric value. If you substitute ECHO TRIAL for MYPROG you can 
readily see a demonstration of what REPEAT. BAT can do. 

The program STRADDLE gives you loop control in the BAT 
language, raising it to new heights of power. Can you think of new 
constructions using STRADDLE that will aid you in creating good 
BAT programs? Try simulating a WHILE loop — it’s easier than 
you might think. 

STRADDLE (and REPEAT. BAT) use extra environment space 
in DOS. You can see all the variables in the environment by keying 
SET [Enter] from the DOS prompt. If your environment is 
already nearly full you may find that REPEAT. BAT does not work 
or that you get a message like ‘environment full’. In this case you 
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Wilf Hey warns against technospeak in the English 
language, shows how to produce dialog boxes on a 
text screen, writes a program to provide a loop test 
within batch files and explains how to handle 
keystrokes in GW-Basic in this month's workshop. 
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should reserve more space for your environment by adjusting the 
SHELL command in your CONFIG.SYS; if you have no SHELL 
command, just add one. A typical one looks like this: 


SHELL=C:\COMMAND.COM /E:2048 /P 


Note that the /E parameter specifies the length of environment that 
you will want; it is rounded up to a multiple of 16 — here we’ve 
allowed two kilobytes. Early DOS users take note: in MS-DOS ver- 
sions 3.0 and 3.1 you must specify a number from | to 62 in the /E 
parameter, indicating the number of paragraphs (16 bytes each). 

STRADDLE itself is written in the FromBAT language (the one 
I use for creating the SuperDisk control program): its ability to find, 
change and create variables in the environment is not unique, but is 
particularly easy; also ERRORLEVEL is available to be set — just 
as if it were a program variable. In effect the variables used in 
FromBAT are the parameters in the environment. BASIC doesn’t 
let you have that kind of control, but you should be able to tell from 
the following FromBAT code what is happening. A few words 
about syntax: 3! PLUS% means ‘the value of the variable whose 
name is the value of the variable PLUS’, so if PLUS=TIMES, then 
SPLUS% is TIMES and %! PLUS% is STIMES3; also note that 3?A% 
is the value of A expressed as a string. 


SET PLUS. = %1 
IF X%!PLUS% == X 
LET ERRORLEVEL = 
ELSE 
IF NOT NUMBER %!PLUS% 
LET ERRORLEVEL = 1 
ENDIF 

ENDIF 

IF ERRORLEVEL > 0 

SET PLUS = 0 

SET MINUS = 0 

ELSE 

LET A = VAL(“%!PLUS%”) 
INC A 

SET PLUS = %?A% 

DEC A 

IF; A.>,-0 

DEC A 

ENDIF 


1 


ie 


CORRECTING THE DOCUMENTATION 
S Pringle of Oldham asks about GW-Basic’ s INKEY$ variable 
which is confusingly documented. He asks for a bit of elucidation 
and a few examples of it that can be cribbed for future programs. 
INKEY$ uses a special service of DOS, looking for a single 
keystroke that has been made but has not yet been handled; such 
strokes are said to be ‘in the keyboard queue’, and handling a key 
removes it permanently from that queue. 
One thing that isn’t made very clear is that any keystroke that is 
passed into a program (either from INKEY$ or INPUTS) is counted 


@ A home- 
brew BASIC 
program is 
the ideal way 
to provide 
missing docu- 
mentation 
about how 
INKEY$ 
works. 


as ‘handled’. Some languages (for example, C and Pascal) have 
means of ‘unhandling’ a keystroke, putting it back on the queue if 
the program doesn’t want the keystroke. This cannot be done in 
simple BASIC, but you can see how it might be useful in multi-pro- 
gramming environments. 

When executing AS=INKEYS, one of three things can happen: 


1. You will find there is no keystroke in the queue. (You can iden- 
tify this condition because LEN (A$) will be zero). 


2. You will find there is a normal ASCII keystroke from the queue. 
(You can identify this condition because LEN (A$) will be one). 


3. You will find there is a special keystroke from the queue: this 
includes Function keys, cursor keys, [Alt] keys and several others. 
(You can identify this condition because LEN (A$) will be two). 


When you have this third case, S Pringle’s manual (and mine!) 
refers you to ‘the extended codes described in Appendix C of the 
GW-Basic User’s Guide’, but these codes are not in any such place. 
The necessary chart to tell you (for example) what the two-charac- 
ter code is doesn’t seem to exist in the GW-Basic manuals. 

The best way to find out the truth of a matter is to investigate it 
yourself; try coding and running this program... 


100 AS = INKEYS 

110 IF LEN(A$) = 0 THEN 100 

120 IF LEN(AS) = 2 THEN PRINT “NUL + “; 
130 B$ = RIGHT(AS,1) 

140° PRINT BS” (* ASG(BS}*)* 

150 IF NOT A$ = CHRS(27) THEN 100 


You can then test keystrokes for yourself, noting which combina- 
tions of shift and key produce which codes. How does this work? 
Note that line 130 sets BS to a single byte value — whether the 
length of AS is one or two (both cases 2 and 3 above). Line 120 pre- 
cedes this with the phrase ‘NUL +’ if the length is two: note that the 
manual confirms that in this case, the value of the first byte (of two) 
should be nul. The semicolon [;] makes sure that the printing of the 
BS value follows on the same physical line. 

Line 150 is the only ‘cheat’: I happen to know that the [Esc] 
key produces a one-byte value of 27 in INKEY$ (it prints as a left- 
pointing arrow): I make that the way to escape the otherwise 
endless loop. 


BOXED-IN ON SCREEN 


My mail indicates that there is continued interest 
in how to produce boxes on a text screen, ready 
for notices and dialog with the user of a program. 
There are many aspects of this, including how to 
save the information under a box and restoring it 

after the box is not needed any more. Sometimes 

speed is important: in these cases you can gain speed 
by using POKE to put characters into the screen buffer directly 

(instead of using COLOR and PRINT in BASIC). 

I have built a routine that will work in QBasic or QuickBasic, 
but assigned it line numbers so that it can be used with GW-Basic 
as well. You will find it on the SuperDisk as BOXSUB.BAS (in 
ASCH format). The subroutine itself starts at line 15000, and what 
precedes it colours the screen and calls the routine to create two 
boxes as an example. 

I find it useful to speak of the dimensions of a box or window 
in terms of north and south (row numbers) and west and east (col- 
umn numbers). Ink and Paper hold the colour numbers for the box: 
note that Ink will be the colour of the border. Border is a numeric 
parameter; 0 means no border; | indicates a single-line border and 
2 indicates a double-line border. If the border is 3, 4 or 5 this is the 
same as 0,1 or 2 but a black shadow is created behind the box. Let’s 
take a closer look at the code (See How to Box Clever, page 329): 


1. The routine (which starts at 15000) begins with a procedure for 
writing a black oblong of the same size and shape as the one 
desired, but starting one line down and two columns across; this 
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will be the shadow, of course (lines 15050 to 15160). I have not 
validated the parameters, but I ensure that the shadow will not run 
off the right or bottom of the screen (line 15060 to 15090). 

When you want to print to specific places on the screen it is 
easiest to use LOCATE just before the PRINT command. Note that 
in line 15130 I place a semicolon [;] on the end of the print line. 
Why? Experiment to find out: changing line 140 (one of the test 
boxes generated at the beginning) so that SOUTH=24 should 
demonstrate the problem. 

Line 15130 sets BORDER so that it is 0,1 or 2 again. 


2. Secondly the routine sets up constants for drawing the border — 
no line, single line or double line graphics. The constants are tiny 
tables (three bytes long)! For example, XNES$ is the table of charac- 
ters which may appear in the north east corner of the box we are 
constructing: the value is set in line 15220; look up the visual rep- 
resentation of these three characters and you will see how it works. 


3. Finally the routine draws the box in the desired colours, adding 
the correct border as it is doing so (lines 15360 to 15490). 

Have a look at this code and analyse what it does; the trickiest 
part involves the three-byte constants set up for border characters. 
How do we get the right value in the north east corner of the box as 
it is being created? We simply use the MIDS instruction, using the 
BORDER parameter to remind us which of the three bytes is desired 
(see line 15350). If Border is one, we pick out the second byte of 


100 REM - trial example 

110 COLOR 0,3 : CLS 

120 NORTH=5 : SOUTH=12 : WEST=42 : EAST=66 : 
BORDER=4 : INK=7 : PAPER=4 

130 GOSUB 15000 

140 NORTH=6 : SOUTH=20 : WEST=10 : EAST=35 : 
BORDER=5 : INK=0 : PAPER=2 

150 GOSUB 15000 

160 LOCATE 23,1 

170 COLOR 0,3 

180 STOP 

15000 REM — Make BOX between North/South and 
West/East 

15010 REM - Colours are INK/PAPER 

15020 REM - Box border is 0,1,2 (+3 for 
shadow) 

15030 WHILE BORDER > 2 


15040 XN = NORTH+1 : IF XN > 25 THEN XN = 25 
15050 XS = SOUTH+1 : IF XS > 25 THEN XS =_.25 
15060 XW = WEST+2 : IF XW > 80 THEN XW = 80 
15070 XE = EAST+2 : IF XE > 80 THEN XE = 80 


15080 COLOR ,0 
15090 FOR XA = 0 TO XS - XN 

15100 LOCATE XN+XA, XW 

15110 PRINT SPACES (XE — XW + 1); 
15120 NEXT 

15130 BORDER = BORDER - 3 


HOW TO BOX CLEVER 
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three for printing: this is the single-line graphic appropriate for that 
character — CHRS$ (191). 

I said earlier that if speed were crucial we could write to the 
screen buffer directly. If we are in page 0 (the normal state of 
affairs) and we have a colour monitor, the buffer starts at displace- 
ment 0 within SEGMENT &HB800. (For monochrome monitors, 
the buffer starts with SEGMENT &HB000). Each character on the 
screen is represented by two bytes in the buffer: the first is the char- 
acter, and the second is the attribute — which is the same as PAPER 
x 16 + INK. 

You can demonstrate this by starting up BASIC again and key- 
ing these lines (interactively, if you are using GW-Basic): 


CLS 

DEF SEG=&HB800 
POKE 0,ASC (“X") 
POKE 1,7*16 + 1 


The result of this should be a blue X on a white background in the 
top left corner of the screen (because we POKEd in 0 and 1). The 
address of the character at a location described by parameters ROW 
and COL is 160 x ROW + COL + COL - 162, and the 
address of its colour attribute is one byte later, 160 x ROW + COL 
+ COL — 161. If you do this fast method, you should use these 
calculations instead of LOCATE, and POKE instead of PRINT and 
COLOR. The speed is not dramatically increased: you are still going 
to be doing a lot of computer work between POKE instructions, so 
the saving may be tiny. 

This month’s challenge is this: as the program stands, when 
you create a shadow box the shadow is created by printing an area 
of black to the screen. Any text characters that may have been in 
the area of the shadow are obliterated. Can you change it so that 
characters within the shadow area appear as grey ? Hint: I’m pretty 
sure you’ll need to use PEEKs and POKEs to achieve this. Again, 
there are prizes for the best three solutions sent in, and I'll give you 
two months to complete the task (until the end of August). @ 


Please send your solutions, tips and arguments to: 
Wilf’s Programmers’ Workshop 

PC PLUS 

30 Monmouth Street 

Bath BA1 2BW 


15140 WEND 
15150 COLOR INK, PAPER 

15160 XNWS=CHR$ (32) +CHRS$ (218) +CHRS$ (201) 
15170 XHZS=CHRS$ (32) +CHR$ (196) +CHR$ (205) 
15180 XNES=CHR$ (32) +CHRS$ (191) +CHRS (187) 
15190 XVTS=CHRS (32) +CHR$ (179) +CHRS (186) 
15200 XSWS=CHR$ (32) +CHR$ (192) +CHRS (200) 
15210 XSES=CHRS$ (32) +CHR$ (217) +CHRS (188) 
15220 LOCATE NORTH, WEST 

15230 PRINT MIDS (XNWS, BORDER+1,1) ; 
15240 FOR XA = 2 TO EAST - WEST 

15250 PRINT MID$(XHZ$,BORDER+1,1); 
15260 NEXT 

15270 PRINT MIDS (XNES, BORDER+1, 1) ; 
15280 FOR XA = 1 TO SOUTH — NORTH - 1 
15290 LOCATE NORTH + XA,WEST 

15300 PRINT MID$(XVTS$,BORDER+1,1); 
15310 PRINT SPACES(EAST — WEST - 1); 
15320 PRINT MIDS (XVT$,BORDER+1,1); 
15330 NEXT 

15340 LOCATE SOUTH, WEST 

15350 PRINT MIDS (XSWS$, BORDER+1,1) ; 
15360 FOR XA = 2 TO EAST - WEST 

15370 PRINT MIDS (XHZ$,BORDER+1,1); 
15380 NEXT 

15390 PRINT MIDS (XSE$, BORDER+1,1) ; 
15400 RETURN 
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Communicators 


A Complete Range of Products to Meet Your Communications Needs 


ReachOut allows 


you to 
take control of and remotely 
operate a PC as if you were 


right there. You can run 
applications in Windows or 
DOS, edit documents, 
update spreadsheets, assist a 
co-worker, or simply 
monitor the remote PC. 


ReachOut also 
complete set of general 
communications functions, 
allowing you to connect to 
public mail and _ bulletin 
board services, and to 
access minis and 
mainframes. 


includes a 


ReachOut/Modem 
Features 

Windows and DOS support 
Background file transfer 
Password security 

LAN version available 

UK modem support 
Remote mouse 

Callback 


The MultiTech MT1432y is a 
pocket-size modem that is 
designed to give you the 
same high performance and 
features as the full-size 
MultiModem II. It offers 
V.32bis operation _ with 
compression for speeds of 
up to 57.6K bps! 


MultiTech MT1432u 
Features 
300-14,400 bps 

MNP levels 2-5 

V.42 error correction 
V.42bis compression 
Group 3 Fax support 
"AT" command set 
BABT approved 

Two year warranty 


=) 
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THE NORTON 
pcANYWHERE 


for DOS 
offers reliable, fast and 
flexible PC-to-PC remote 


computing via a serial or 
modem connection. It gives 
you full control over all 
functions on the distant host 
PC, including remote control 
of both DOS and Windows 
applications. 


pcANYWHERE for DOS also 
includes full-featured 
general communications to 
allow connections to 
CompuServe, a mainframe, 
your E-mail box or a wide 
range of other hosts. 


Norton pcANYWHERE 
for DOS Features 
Windows and DOS support 
Background file transfer 
Password security 

LAN version available 

UK modem support 
Remote mouse 

Callback 


THE Communications Too! Made Easy for Everyday Use 


for Windows 
offers you all the features of 
pcANYWHERE for DOS - 
without leaving Windows! 


Support for serial, modem, 
NetBIOS and Novell 
connections is included as 
standard, allowing you to 
take remote control of any 
PC, anywhere - DOS or 
Windows, standalone or 
networked. 


And it offers full Windows 
functionality, making file 
transfers easy with simple 
"drag-and-drop" technology. 


Norton pcANYWHERE 
Sor Windows Features 
Windows and DOS support 
Full Windows interface 
Includes LAN support 

For Windows 3.0 or 3.1 
Compatible with DOS version 
General communications 
UK modem support 


Teleport 16550 
Features 
High-speed serial card 
Eliminates data loss 

Ideal for V.32bis modems 
Dual serial ports 
NS16550AEFN chips installed 
COM1 to COM4 configurable 
IRQ2 to IRQS selectable 
ISA/EISA halfcard 
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3 WYCOMBE ROAD, PRESTWOOD, BUCKS. HP16 OND. 
Tel: 02406 6365 Fax: 02406 6050 BBS: 0494 891903 


WILDCAT! is the easiest to 
use, most powerful bulletin 
board software on_ the 
market today. 


It allows you to provide file 


transfer, message pick-up 
and delivery, customer 
support, take orders, 


conduct surveys or even set 
up an information system for 
callers. 


All this in a system that is 
PC-based and can be 
expanded to support 
multiple dial-in lines or LAN 
connections. 


WILDCAT! Features 
Bullet-proof security 
Menu-driven installation 
Automatic UK modem set-up 
Electronic mail 

Up to 1,000 conferences 
CD-ROM support 

DESQview aware 

Optional full-screen editor 


QmodemPro is a must for 
all WILDCAT! and other BBS 
callers, offering a full suite 
of terminal emulations, 
transfer protocols and 
electronic mail management 
in one easy-to-use package. 


As well as providing dial-out 


and host capabilities, 
QmodemPro can _ retrieve 
E-mail from CompuServe 


and bulletin board systems. 
It even includes a mail 
reader to allow replies to be 
composed off-line and sent 
back to the originating 
system automatically. 


QmodemPro Features 
Pull-down menu interface 
Automated dialling directory 
INT14, NACS/NASI support 
Ability to send FAXes 

Mouse support 

Automatic UK modem set-up 
Powerful script language 
Full terminal support 


The MultiTech MultiModem 
I MT1432BLK = combines 
ease-of-use with the latest in 


data communications 
technology, providing the 
ultimate in quality, 


performance and value. Also 
available is the MT932BK at 
£455 (RRP £649). 


MultiTech MT1432BLK 
Features 

300-14,400 bps 

MNP levels 2-5 

V.42 error correction 
V.42bis compression 
Group 3 Fax support 
"AT" command set 

BABT approved 

Two year warranty 


-use subject 
et out in them. 


All products mentioned are trademarks of their 
respective companies. Prices quoted do not 
include delivery or VAT. Trade and OEM 
enquiries welcome. 


